##############################################################################
###+------------+#############################################################
#+-| CURDRIVE() |-------------------------------+#############################
#| +------------+ Returns the current DOS drive |#############################
#+----------------------------------------------+#############################
##############################################################################
##############################################################################
#+--| Summary |----------------+##############################################
#|     #INCLUDE system.hdr     |##############################################
#+-----------------------------+##############################################
##############################################################################
##############################################################################
#+--| Syntax |------------------------------+#################################
#|     FUNCTION UINT curdrive PROTOTYPE     |#################################
#+------------------------------------------+#################################
##############################################################################
##############################################################################
########+---| Description |------------------------------------------+########
########| The curdrive() function returns the current DOS disk drive |########
########| in number format.  0 represents drive A:, 1 represents     |########
########| drive B: and so on.                                        |########
########+------------------------------------------------------------+########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Get the current drive at the beginning of a         |#########
#########| *    program so it can be reset when the program         |#########
#########| *    terminates.                                         |#########
#########|                                                          |#########
#########| current_drive = curdrive()                               |#########
#########|                                                          |#########
#########| {...}                                                    |#########
#########|                                                          |#########
#########| select_drive( current_drive )                            |#########
#########| QUIT                                                     |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    This function returns the number of drives          |#########
#########| *    on a computer.                                      |#########
#########|                                                          |#########
#########| FUNCTION INT number_drives                               |#########
#########|      VARDEF                                              |#########
#########|          INT   k                                         |#########
#########|      ENDDEF                                              |#########
#########|      k = 0                                               |#########
#########|      DO WHILE select_drive(k) = curdrive()               |#########
#########|          k = k + 1                                       |#########
#########|      ENDDO                                               |#########
#########|      RETURN k                                            |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################